setdisplay(320,200,32,1):paper(0xFFFFFF):ink(0):pen(0):cls
   ink(0xFF0000):bar(20,80,60,130)
   ink(0x00FF00):bar(120,100,150,140)
   ink(0x0000FF):bar(210,90,230,150)
while 0=0
   locate (1,1):prints(mousezone(20,80,60-20,130-80))
   locate (1,2):prints(mousezone(120,100,150-120,140-100))
   locate (1,3):prints(mousezone(210,90,230-210,150-90))
   waitvbl
 wend

